home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH7 / SRC / VIEWPORT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-02  |  2.0 KB  |  70 lines
  1. VERSION 4.00
  2. Begin VB.Form ViewportForm 
  3.    Caption         =   "Viewport"
  4.    ClientHeight    =   2910
  5.    ClientLeft      =   2550
  6.    ClientTop       =   1800
  7.    ClientWidth     =   2910
  8.    Height          =   3600
  9.    Left            =   2490
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2910
  12.    ScaleWidth      =   2910
  13.    Top             =   1170
  14.    Width           =   3030
  15.    Begin VB.PictureBox viewport 
  16.       Height          =   2895
  17.       Left            =   0
  18.       ScaleHeight     =   2835
  19.       ScaleWidth      =   2835
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   2895
  23.    End
  24.    Begin VB.Menu mnuFile 
  25.       Caption         =   "&File"
  26.       Begin VB.Menu mnuFileExit 
  27.          Caption         =   "E&xit"
  28.       End
  29.    End
  30. Attribute VB_Name = "ViewportForm"
  31. Attribute VB_Creatable = False
  32. Attribute VB_Exposed = False
  33. Option Explicit
  34. ' ************************************************
  35. ' Draw a smiley face in the viewport centered
  36. ' around the point (5, 5).
  37. ' ************************************************
  38. Sub DrawSmiley()
  39. Const pi = 3.14159265
  40. Const pi2 = 2 * pi
  41.     Viewport.Circle (5, 5), 4            ' Head
  42.     Viewport.Circle (5, 5), 3, , pi, pi2 ' Smile
  43.     Viewport.Circle (3, 7), 0.75         ' Left eye.
  44.     Viewport.Circle (7, 7), 0.75         ' Right eye.
  45.     Viewport.Circle (5, 5), 0.75         ' Nose.
  46. End Sub
  47. Private Sub Form_Load()
  48. Dim x As Single
  49. Dim y As Single
  50. Dim wid As Single
  51. Dim hgt As Single
  52.     ' Make the viewport 2 inches square.
  53.     x = Viewport.Left
  54.     y = Viewport.Top
  55.     wid = 2 * 1440 + Viewport.Width - Viewport.ScaleWidth
  56.     hgt = 2 * 1440 + Viewport.Height - Viewport.ScaleHeight
  57.     Viewport.Move x, y, wid, hgt
  58.     ' Attach the world window.
  59.     Viewport.Scale (0, 10)-(10, 0)
  60. End Sub
  61. Private Sub Form_Resize()
  62.     Viewport.Move 0, 0, ScaleWidth, ScaleHeight
  63. End Sub
  64. Private Sub mnuFileExit_Click()
  65.     Unload Me
  66. End Sub
  67. Private Sub Viewport_Paint()
  68.     DrawSmiley
  69. End Sub
  70.